home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / m / mftpv1.31reg.lha / MFTP / Install / Install_mftp < prev    next >
Text File  |  1995-11-18  |  5KB  |  174 lines
  1. ;mftp INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 MICHAEL NEUWEILER
  3.  
  4. (complete 0)
  5.  
  6. ;===========================================================================
  7. ; English strings
  8.  
  9. (if (= @language "english")
  10. (
  11. (set locale 0)
  12. (set #bad-MUI             (cat "You need at least MUI2.3 to use mftp." ))
  13. (set #no-AmiTCP        (cat "\"AmiTCP:\" assign not found.\nmftp needs at least AmiTCP 2.3 to run.\nMake shure AmiTCP is installed properly."))
  14. (set #dir-choice         (cat "Select the directory where mftp has to be installed." ))
  15. (set #cpu1                (cat "Your Amiga is equipped with a "))
  16. (set #cpu2                (cat " CPU.\nWhich version of mftp would you like to install ?"))
  17. (set #copy                 (cat "Copying mftp"))
  18. (set #doc-choice        (cat "Where do you want to install the documentation?\nIf you want the HELP key to work you should use the given path."))
  19. (set #doc-copy         (cat "Copying Documentation"))
  20. (set #cat-copy         (cat "Copying Catalog"))
  21. ))
  22.  
  23. ;===========================================================================
  24. ; French strings
  25.  
  26. (if (= @language "français")
  27. (
  28. (set locale 1)
  29.  
  30. (set #bad-MUI         (cat "Vous avez besoin au moins de MUI2.3 pour utiliser mftp." ))
  31. (set #no-AmiTCP    (cat "\"AmiTCP:\" assign not found.\nmftp needs at least AmiTCP 2.3 to run.\nMake shure AmiTCP is installed properly."))
  32. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer mftp." ))
  33. (set #cpu1            (cat "Your Amiga is equipped with a "))
  34. (set #cpu2            (cat " CPU.\nWhich version of mftp would you like to install ?"))
  35. (set #copy             (cat "Copie de mftp"))
  36. (set #doc-choice    (cat "Where do you want to install the documentation?\nIf you want the HELP key to work you should use the given path."))
  37. (set #doc-copy        (cat "Copie de la Documentation"))
  38. (set #cat-copy        (cat "Copie de la Catalogue"))
  39. ))
  40.  
  41. ;===========================================================================
  42. ; German strings
  43.  
  44. (if (= @language "deutsch")
  45. (
  46. (set locale 2)
  47.  
  48. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.3, um mftp zu nutzen."))
  49. (set #no-AmiTCP    (cat "\"AmiTCP:\" Zuweisung nicht gefunden.\nmftp benötigt mindestens AmiTCP 2.3.\nStellen Sie sicher, dass AmiTCP ordnungsgemäss installiert ist"))
  50. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches mftp installiert werden soll."))
  51. (set #cpu1            (cat "Ihr Amiga ist mit einer "))
  52. (set #cpu2            (cat " CPU ausgestattet.\nWelche Version von mftp möchten Sie installieren ?"))
  53. (set #copy             (cat "Kopiere mftp"))
  54. (set #doc-choice    (cat "Wohin möchten Sie die Dokumentation kopieren ?\nWenn Sie möchten, dass die HELP-Taste funktioniert, sollten Sie das vorgeschlagene Verzeichnis benutzen."))
  55. (set #doc-copy     (cat "Kopiere Dokumentation"))
  56. (set #cat-copy        (cat "Kopiere Katalog"))
  57. ))
  58.  
  59.  
  60. ;========================================================================
  61. ;
  62. ; Scanning MUI version
  63. ;
  64.  
  65. (set versionnumber (getversion "LIBS:muimaster.library"))
  66. (set version (/ versionnumber 65536))
  67.  
  68. (if (< version 8)
  69.     (abort #bad-MUI)
  70. )
  71.  
  72.  
  73. ;========================================================================
  74. ;
  75. ; Install the program
  76. ;
  77.  
  78. (set mftp-dir "AmiTCP:")
  79.  
  80. (if (NOT(exists "AmiTCP:" (noreq)))
  81.     (
  82.         (message #no-AmiTCP)
  83.         (if (= @user-level 0)
  84.             (abort "Couldn't find AmiTCP:")
  85.         )
  86.     )
  87. )
  88.  
  89. (set mftp-dir
  90.     (askdir
  91.         (prompt #dir-choice)
  92.         (default mftp-dir)
  93.         (help @askdir-help)
  94.     )
  95. )
  96. (set @default-dest mftp-dir)
  97.  
  98. ;
  99. ; what cpu have we got
  100. ;
  101. (set cpu (+ (database "cpu")))    ; (+ ...) makes it an integer value.
  102. (if (> cpu 68020)
  103.     (set turbo 1)
  104.     (set turbo 0)
  105. )
  106. (set turbo
  107.     (askchoice
  108.         (prompt (cat #cpu1 cpu #cpu2))
  109.         (choices "68'000 version" "68'030 version")
  110.         (default turbo)
  111.         (help @askchoice-help)
  112.     )
  113. )
  114.  
  115. (complete 10)
  116.  
  117. ;
  118. ; copy the according version
  119. ;
  120. (copyfiles
  121.     (prompt #copy)
  122.     (source (if turbo "/mftp.030" "/mftp"))
  123.     (newname "mftp")
  124.     (help @copyfiles-help)
  125.     (infos)
  126.     (optional force)
  127.     (dest mftp-dir)
  128. )
  129.  
  130. ;========================================================================
  131. ;
  132. ; Install the documentation
  133. ;
  134.  
  135. (complete 20)
  136. (set doc-dir @default-dest)
  137. (set doc-dir
  138.     (askdir
  139.         (default @default-dest)
  140.         (prompt #doc-choice)
  141.         (help @askdir-help)
  142.     )
  143. )
  144.  
  145. ;
  146. ; copy the docs
  147. ;
  148. (copyfiles
  149.     (prompt #doc-copy)
  150.     (source (cat "/Docs/mftp_" @language ".guide"))
  151.     (newname "mftp.guide")
  152.     (help @copyfiles-help)
  153.     (infos)
  154.     (optional force)
  155.     (dest doc-dir)
  156. )
  157.  
  158. ;========================================================================
  159. ;
  160. ; Install catalog files
  161. ;
  162. (if locale                                ; is it necessary to install a catalog ?
  163.     (
  164.         (copyfiles
  165.             (prompt #cat-copy)
  166.             (source (cat "/Catalogs/" @language "/mftp.catalog"))
  167.             (newname "mftp.catalog")
  168.             (help @copyfiles-help)
  169.             (optional force)
  170.             (dest (cat "LOCALE:Catalogs/" @language))
  171.         )
  172.     )
  173. )
  174.